EnigmA Amiga Run 1998 July/EnigmA AMIGA RUN 29 (1998)(G.R. Edizioni)(IT)[!][issue 1998-07 & 08].iso/cd-sup/cdrom/amicdfs2/installcdfs

Text File | 1998-05-24 | 5KB | 186 lines

; $VER: AmiCDFS Installer 1.0 (22.4.97) Neil Bothwick
;
; This installer was written specifically for installing
; AmiCDFS from the CU amiga cover CDs

;;; Set paramemters and defaults
(set
    CD32Dev         'cd.device'
    CD32Unit        '0'
    SquirrelDev     'squirrelscsi.device'
    SquirrelUnit    '3'
    OtherDev        'scsi.device'
    OtherUnit       '3'
    DevNum    '0'
)
;;;
;;; Check CPU
(set cpu030 (> (database 'cpu') '68020'))
;;;
;;; Get device driver and unit
(set DriveNum
    (askchoice
        (prompt 'Are you installing on a CD32, an A1200 with Squirrel (or Surf Squirrel), or a different setup?')
        (help 'This information is needed to determine the correct device driver')
        (choices '\x1B[2pCD32' 'Squirrel/Surf Squirrel' 'Other')
        (default 2)
    )
)
(set DevDriver
    (select DriveNum
        (CD32Dev)
        (SquirrelDev)
        (askstring
            (prompt 'Enter the name of your device driver\n\nThis is CASE SENSITIVE')
            (help
                (cat
                    'This is the driver for your CD drives interface. '
                    'It is usually something like scsi.device or atapi.device\n\n'
                    'IMPORTANT: This is Case-Sensitive'
                )
            )
            (default OtherDev)
        )
    )
)
(set DevUnit
    (select DriveNum
        (CD32Unit)                  ; CD32
        (askstring                  ; Squirrel
            (prompt 'Enter the unit number of your CDROM drive.')
            (help
                (cat
                    'This will be stored in the Icon tooltypes of the file created in '
                    'DEVS:DOSDrivers, you can change it if you need to by clicking on the '
                    'icon once and selecting Information from the workbench icons menu'
                )
            )
            (default SquirrelUnit)
        )
        (askstring                  ; Other
            (prompt 'Enter the unit number of your CDROM drive.')
            (help
                (cat
                    'This will be stored in the Icon tooltypes of the file created in '
                    'DEVS:DOSDrivers, you can change it if you need to by clicking on the '
                    'icon once and selecting Information from the workbench icons menu'
                )
            )
            (default OtherUnit)
        )
    )
)
;;;
;;; Get unused name for CD drive
; Check for a mounted device
(while (not (run (cat 'testdevice >NIL: CD' DevNum ':')))
    (set DevNum (+ DevNum 1))
)
; Check for a DEVS:DOSDrivers entry
(while (exists (cat 'DEVS:DOSDrivers/CD' DevNum) (noreq))
    (set DevNum (+ DevNum 1))
)
; Check for a SYS:Storage/DOSDrivers entry
(while (exists (cat 'SYS:Storage/DOSDrivers/CD' DevNum) (noreq))
    (set DevNum (+ DevNum 1))
)
(set DevName (cat 'CD' DevNum))
;;;
;;; Copy files
(copylib
    (prompt '') (help '')
    (source
        (if cpu030
            ('L/AmiCDFS.030')
            ('L/AmiCDFS')
        )
    )
    (dest 'L:')
    (newname 'AmiCDFS')
)
(copylib
    (prompt '') (help '')
    (source 'C/Mount')
    (dest 'C:')
)
(copylib
    (prompt '') (help '')
    (source 'C/SetPatch')
    (dest 'C:')
)
(copylib
    (prompt '') (help '')
    (source 'C/SetCDFS')
    (dest 'C:')
)
(copylib
    (prompt '') (help '')
    (source 'LIBS/wbstart.library')
    (dest 'LIBS:')
)
(copylib
    (prompt '') (help '')
    (source 'Icons/def_CDDAdisk.info')
    (dest 'ENVARC:sys')
)
;;;
;;; Create mountfile in DEVS:
(textfile
    (prompt '') (help '')
    (dest (cat 'DEVS:DOSDrivers/' DevName))
    (append '/* $VER: CD0 2.36 (22.08.96)\n')
    (append ' *\n')
    (append ' * CD-ROM filesystem mount entry\n')
    (append ' *\n')
    (append ' * Created by CU Amiga CD AmiCDFS installer\n')
    (append ' */\n')
    (append '\n')
    (append (cat '         Device = ' DevDriver '\n'))
    (append '     FileSystem = L:AmiCDFS\n')
    (append '          Flags = 0\n')
    (append ' BlocksPerTrack = 32\n')
    (append '      BlockSize = 2048\n')
    (append '       Reserved = 0\n')
    (append '         LowCyl = 0\n')
    (append '        HighCyl = 11000\n')
    (append '       Surfaces = 1\n')
    (append '        Buffers = 64\n')
    (append '     BufMemType = 1\n')
    (append '           Mask = 0x7fffffff\n')
    (append '        GlobVec = -1\n')
    (append '       Priority = 10\n')
    (append '        DosType = 0x43444653\n')
    (append '      StackSize = 600\n')
    (append '          Mount = 1\n')
    (append '\n')
    (append '        Control = "LC BL=8 FB=32"\n')
    (append '\n')
    (append '/* Unit number is given in icon tooltype\n')
    (append ' *\n')
    (append ' * Control field template:\n')
    (append ' *\n')
    (append ' * LC=LOWERCASE/S,CS=CASESENSE/S,\n')
    (append ' * HF=HFSFIRST/S,TD=TRACKDISK/S,\n')
    (append ' * BL=BUFFERLINES/K/N,FB=FILEBUFFERS/K/N,\n')
    (append ' * DC=DISKCHANGE/K/N,MT=MOTORTIME/K/N,\n')
    (append ' * SD=STARTDELAY/K/N,TDC=TDCHANGE/S,\n')
    (append ' * TOSHIBA/S,OLDMODE/S\n')
    (append ' */\n')
)
(copyfiles
    (prompt '')(help '')
    (source 'CD0.info')
    (dest 'DEVS:DOSDrivers')
    (newname (cat DevName '.info'))
)
(tooltype
    (prompt '') (help '')
    (dest (cat 'DEVS:DOSDrivers/' DevName))
    (settooltype 'UNIT' DevUnit)
)
;;;

(exit (cat '\nAmiCDFS has been installed as ' DevName ':') (quiet))